home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / demo1kb.ajo next >
Text File  |  2002-04-16  |  1KB  |  41 lines
  1. # benji_haoma0.7
  2.  
  3. checkaudio[audioerror] : iaiochicken
  4.  
  5. -back1:
  6. openscreen[0]=320/240/2/l//;
  7. sumpalblack[0] : setcol[0,1,0,0,0] : setpen[0,1,0,0] : set[0,0] : set[1,255]
  8. text[0,86,220]=* * Wciônij LMB * *
  9.  
  10. setpen[0,3,0,0] : text[0,82,120]=Iaio v0.7 - RULEZ ;D
  11. setpen[0,2,0,0] : text[0,82,120]=I i   0 7 - R L Z ;
  12. setpen[0,3,0,0] : text[0,83,121]=Iaio v0.7 - RULEZ ;D
  13. setpen[0,2,0,0] : text[0,83,121]=I i   0 7 - R L Z ;
  14.  
  15. set[3,10]
  16.  
  17. -1loop:
  18. setcol[0,2,0,0,0] : setcol[0,3,255,255,255]
  19.  
  20. setpen[0,1,0,1] : text[0,!3,20]= BeHa!
  21. setpen[0,1,0,0] : add[3,1]
  22.  
  23. setcol[0,1,!0,!1,!1] : setcol[0,0,!1,!0,!1]
  24. add[0,1] : sub[1,1] : onlmb[endzik] : case[0,255,2loop] : jump[1loop]
  25.  
  26. -2loop:
  27. setcol[0,2,255,255,255] : setcol[0,3,0,0,0]
  28.  
  29. setpen[0,1,0,1] : text[0,!3,20]= bEhA!
  30. setpen[0,1,0,0] : sub[3,1]
  31.  
  32. setcol[0,1,!0,!1,!1] : setcol[0,0,!1,!0,!1]
  33. sub[0,1] : add[1,1] : onlmb[endzik] : case[0,0,1loop] : jump[2loop]
  34.  
  35. -endzik:
  36. fadetoblack[0,0] : closescreen[0] : quit
  37.  
  38. -audioerror:
  39. print=Dzwiek wyîâczony! (zwolnij kanaîy audio!)
  40. jump[back1]
  41.